﻿Public Class FrmP_Admin

    Private Sub EntredasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntredasToolStripMenuItem.Click
        Dim FrmEntrada As New Frm3EntradasMenu
        FrmEntrada.Show()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ItemsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemsToolStripMenuItem1.Click
        Dim Frmitem As New Frm1ItemMenuRMP
        Frmitem.Show()
    End Sub

    Private Sub ItemsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemsToolStripMenuItem.Click
        Dim Frmitem As New Frm1ItemMenuRMP
        Frmitem.Show()
    End Sub

    Private Sub ClientesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim FrmCliente As New Frm2ClientesMenu
        FrmCliente.Show()

    End Sub

    Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click
        Dim FrmCliente As New Frm2ClientesMenu
        FrmCliente.Show()
    End Sub

    Private Sub ProveedorToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ProveedorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BodegaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BodegaToolStripMenuItem1.Click
        Dim FrmBodgas As New Frm4BodegasMenu
        FrmBodgas.Show()

    End Sub

    Private Sub BodegaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BodegaToolStripMenuItem.Click
        Dim FrmBodgas As New Frm4BodegasMenu
        FrmBodgas.Show()

    End Sub

    Private Sub RolesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim FrmRoles As New Frm5RolesMenu
        FrmRoles.Show()

    End Sub

    Private Sub UsuariosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim FrmUsuario As New Frm6UsuariosMenu
        FrmUsuario.Show()

    End Sub

    Private Sub UsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosToolStripMenuItem.Click
        Dim FrmUsuario As New Frm6UsuariosMenu
        FrmUsuario.Show()

    End Sub

    Private Sub SocioDeNegocioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SocioDeNegocioToolStripMenuItem.Click
        Dim FrmSocio As New Frm2ClientesMenu
        FrmSocio.Show()

    End Sub

    Private Sub EntradasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntradasToolStripMenuItem.Click
        Dim FrmEntrada As New Frm3EntradasMenu
        FrmEntrada.Show()

    End Sub

    Private Sub SalirToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem1.Click
        Dim resultado As DialogResult
        resultado = MessageBox.Show("Desea realmente salir del Sistema?", "Salida", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If resultado = Windows.Forms.DialogResult.Yes Then
            Me.Close()

        End If
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Dim resultado As DialogResult
        resultado = MessageBox.Show("Desea realmente salir del Sistema?", "Salida", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If resultado = Windows.Forms.DialogResult.Yes Then
            Me.Close()

        End If
    End Sub

    Private Sub SalidasToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalidasToolStripMenuItem1.Click
        Frm7SalidasMenu.Show()

    End Sub

    Private Sub SalidasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalidasToolStripMenuItem.Click
        Frm7SalidasMenu.Show()
    End Sub

    Private Sub MovimientosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovimientosToolStripMenuItem.Click
        Frm8MovimientosMenu.Show()


    End Sub

    Private Sub AjustesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjustesToolStripMenuItem.Click
        Frm9Ajuntest.Show()

    End Sub

    Private Sub ProcesoDePescadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProcesoDePescadoToolStripMenuItem.Click
        Frm10Proceso.Show()
    End Sub

    Private Sub MovInternoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovInternoToolStripMenuItem.Click
        Frm8MovimientosMenu.Show()
    End Sub

    Private Sub AjusteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjusteToolStripMenuItem.Click
        Frm9Ajuntest.Show()
    End Sub

    Private Sub InventariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventariosToolStripMenuItem.Click
        Frm10Proceso.Show()
    End Sub

    Private Sub FacturaciónToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacturaciónToolStripMenuItem.Click
        Frm11FacturacionVL.Show()
    End Sub

    Private Sub UsuarioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuarioToolStripMenuItem.Click
        Frm6UsuariosMenu.Show()
    End Sub
End Class
